home *** CD-ROM | disk | FTP | other *** search
/ American History: Interactive Maps & User's Guide / American History: Interactive Maps & User's Guide.iso / pc / ImapTest.dxr / 00011_Reset Buttons.ls < prev    next >
Encoding:
Text File  |  2000-01-25  |  404 b   |  13 lines
  1. on exitFrame
  2.   global IMapTest
  3.   set start to getFirstChoiceSpriteNumber(IMapTest) + 1
  4.   set finish to start - 1 + getCurrentType(IMapTest)
  5.   set doneSpriteChannel to getDoneSpriteNumber(IMapTest)
  6.   set barChannel to getBarSpriteNumber(IMapTest)
  7.   repeat with i = start to finish
  8.     puppetSprite(i, 1)
  9.   end repeat
  10.   swapCast(doneSpriteChannel, "done_button")
  11.   swapCast(barChannel, "question.bar")
  12. end
  13.